TeX 1995 July/TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO/macros/musictex/older-versions/musictex.500/MUSICNFT.TEX

Text File | 1994-02-01 | 29KB | 806 lines

%
% This is MusicNFT from MusicTeX
\message{Version 5.01 -- February 1st, 1994}%
%
% finding which class of fonts is normally used (cmxxx, dmxxx, dcxxx,...)
\def\wordsplita#1#2#3.XX.{#1}%
\def\wordsplitb#1#2#3.XX.{#2}%
\rm
\edef\fonthdg{\expandafter\wordsplita\fontname\the\font.XX.}%
\edef\fonthdge{\expandafter\wordsplitb\fontname\the\font.XX.}%
 %
\font\cmmi=cmmi10 scaled \magstep1
\font\cmbxbig=\fonthdg\fonthdge bx10 scaled \magstep2
\font\cmbx=\fonthdg\fonthdge bx10 scaled \magstep1
\font\cmbxsmall=\fonthdg\fonthdge bx10
\font\cmbxtiny=\fonthdg\fonthdge bx8
\font\cmbxmicro=\fonthdg\fonthdge bx7
\font\moyen=\fonthdg\fonthdge bx10 scaled \magstep1
\font\cmex=cmex10
\font\cmsy=cmsy10 scaled \magstep1
\font\cmr=\fonthdg\fonthdge r10 scaled \magstep1
\font\ttyeight=\fonthdg\fonthdge tt8


\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
\edef\catcode@gt{\the\catcode`\>}\catcode`\>=12
\edef\catcode@lt{\the\catcode`\<}\catcode`\<=12

%
\let\@plainwlog=\wlog
\def\wlog#1{}%
%
\font\musictwenty=musikn20
\fontdimen35\musictwenty=0pt\relax
\font\musicsixteen=musikn16
\font\slurntwenty=slurn20
\font\slurnsixteen=slurn16
\font\musicthirteen=musikn13
\font\musiceleven=musikn11
\font\beamtwenty=beamn20
\fontdimen50\beamtwenty=0pt\relax
\font\beamsixteen=beamn16
\font\beamthirteen=beamn13
\font\beameleven=beamn11
%
\newif\ifcautionacc
\cautionaccfalse
%
\def\q@u{\musicnfont\char33\hss}%
\def\h@a{\musicnfont\char34\hss}%
\def\w@h{\musicnfont\char35\hss}%
\def\d@iamg{\musicnfont\char0\hss}%
\def\d@iamw{\musicnfont\char127\hss}%
\def\s@haker{\musicnfont\char79\hss}%
\def\t@remolord{\musicnfont\char78\hss}%
\def\c@arrg{\musicnfont\char1\hss}%
\def\c@arpg{\musicnfont\char2\hss}%
\def\c@arqg{\musicnfont\char3\hss}%
\def\w@hq{\musicnfont\char 125\hss}%
\def\s@bv{\musicnfont\char36\hss}%
\def\b@rv{\musicnfont\char32\hss}%
\def\c@upchar{39}%   offset to upper eighth hook
\def\c@dnchar{44}%   offset to upper eighth hook
%
\def\musicxx{\musicnorfont}%
\def\slurnxx{\slurnorfont}%
\def\slurnfont{\slurnorfont}%
%
\def\set@normalnotesize{\def\beamfont{\beamnorfont}%
\def\musicnfont{\musicnorfont}%
\def\i@nterbeam{0.75\Interligne}%
\def\b@alkthick{0.24\Interligne}}
%
\def\set@smallnotesize{\def\beamfont{\beamsmallfont}%
\def\musicnfont{\musicsmallfont}%
\def\i@nterbeam{0.6\Interligne}%
\def\b@alkthick{0.192\Interligne}}
%
\def\set@tinynotesize{\def\beamfont{\beamtinyfont}%
\def\musicnfont{\musictinyfont}%
\def\i@nterbeam{0.48\Interligne}%
\def\b@alkthick{0.1536\Interligne}}
%
\set@normalnotesize
%
\def\qu@raise{\z@}%
\def\ha@raise{\z@}%
\def\wh@raise{\z@}%
\def\zwq#1{\getn@i{#1}\def\n@fon{\zwq}\def\n@sym{\w@hq}\g@zw}%
\def\zsb#1{\getn@i{#1}\def\n@fon{\zsb}\def\n@sym{\s@bv}\g@zsb}% semi-breve
\def\zbv#1{\getn@i{#1}\def\n@fon{\zbv}\def\n@sym{\b@rv}\g@zbv}% breve
\def\g@zbv{\n@raiseq
  \h@lines{\bv@width}\def\s@tem{\resetstem}\plap@symss\fi}%
\def\g@zsb{\n@raiseq
  \h@lines{\sb@width}\def\s@tem{\resetstem}\plap@symss\fi}%
%
\newbox\ch@box
\newdimen\lthick
\global\lthick=0.4pt
%\newdimen\qn@width
%\newdimen\hn@width
%\newdimen\wn@width
%\newdimen\sb@width
%\newdimen\bv@width
\newdimen\qd@skip
\newdimen\hd@skip
\newdimen\wd@skip
%
\newcount\musicsize
%
\def\musickeyfont{\ifdim\internote<0.76\Internote\musictinyfont
\else\ifdim\internote<0.95\Internote\musicsmallfont
     \else\musicnorfont
     \fi
\fi}%
%
\def\meterfont{\ifdim\internote<0.76\Internote\metersmallfont
\else\ifdim\internote<0.95\Internote\meternorfont
     \else\meterbigfont
     \fi
\fi}%
%
\def\pointfont{\ifdim\internote<0.76\Internote\metertinyfont
\else\ifdim\internote<0.95\Internote\metersmallfont
     \else\meternorfont
     \fi
\fi}%
%
\def\computespecifics{\ifnum\musicsize=0\relax\musicsize=20\relax\fi
\ifnum\musicsize=20\relax
  \def\ppff{\ppfftwenty}%
  \def\beamnorfont{\beamtwenty}\def\musicnorfont{\musictwenty}%
  \def\beamsmallfont{\beamsixteen}\def\musicsmallfont{\musicsixteen}%
  \def\beamtinyfont{\beamthirteen}\def\musictinyfont{\musicthirteen}%
  \def\meternorfont{\cmbx}\def\metersmallfont{\cmbxsmall}%
  \def\metertinyfont{\cmbxtiny}\def\slurnorfont{\slurntwenty}%
  \def\meterbigfont{\cmbxbig}%
\else
  \def\ppff{\ppffsixteen}%
  \def\beamnorfont{\beamsixteen}\def\musicnorfont{\musicsixteen}%
  \def\beamsmallfont{\beamthirteen}\def\musicsmallfont{\musicthirteen}%
  \def\beamtinyfont{\beameleven}\def\musictinyfont{\musiceleven}%
  \def\meternorfont{\cmbxsmall}\def\metersmallfont{\cmbxtiny}%
  \def\metertinyfont{\cmbxmicro}\def\slurnorfont{\slurnsixteen}%
  \def\meterbigfont{\cmbx}%
\fi
\Interligne=\musicsize pt\divide\Interligne by 4\relax
\Internote=0.5\Interligne
\interbeam=\i@nterbeam
\setbox\ch@box=\hbox{\w@h}\wn@width=\wd\ch@box
\setbox\ch@box=\hbox{\s@bv}\sb@width=\wd\ch@box
\setbox\ch@box=\hbox{\b@rv}\bv@width=\wd\ch@box
\setbox\ch@box=\hbox{\c@arrg}\gr@width=\wd\ch@box
\setbox\ch@box=\hbox{\h@a}\hn@width=\wd\ch@box
\setbox\ch@box=\hbox{\q@u}\qn@width=\wd\ch@box
\qd@skip=\qn@width\advance\qd@skip by -\hlthick
\hd@skip=\hn@width\advance\hd@skip by -\hlthick
\wd@skip=\wn@width\advance\wd@skip by -\hlthick
}%
\def\normalnotesize{\set@normalnotesize\computespecifics
  \def\currentsize{\normalnotesize}}
\def\smallnotesize{\set@smallnotesize\computespecifics
  \def\currentsize{\smallnotesize}}
\def\tinynotesize{\set@tinynotesize\computespecifics
  \def\currentsize{\tinynotesize}}
%
%\check
%
\def\s@oupir{{\musicnfont\char"3E}}%
%
 %\newdimen\c@height
\newcount\c@mult
%\check
\def\d@cr#1{\c@mult=#1\relax    % queue de #1 croche(s) vers le haut
\advance\c@mult by \c@upchar\d@crg}%
\def\d@gru{\c@mult=12\relax\d@crg}% queue de croche barree vers le haut
\def\d@crg{\setbox\ch@box=\rlap{\musicnfont\char\c@mult}\c@height=\ht\ch@box
\global\advance\st@top by \c@height
\global\advance\st@top by \internote
  \ifdim\st@top>\st@bot
    \maxst@top
    \global\advance\st@bot by -\altportee
    \global\advance\st@top by -\altportee
    \kern\stem@skip\vrule height\st@top depth -\st@bot width \lthick
    \advance\st@top by -\c@height\raise\st@top\box\ch@box
    \kern -\lthick \kern-\stem@skip
  \fi\resetstem}%
%\check
\def\p@cr#1{\c@mult=#1\relax    % queue de #1 croche(s) vers le bas
\advance\c@mult by \c@dnchar\p@crg}%
\def\p@gru{\c@mult=13\relax\p@crg}% queue de croche barree vers la bas
\def\p@crg{\setbox\ch@box=\rlap{\kern \hlthick\musicnfont
    \char\c@mult}\c@height=\ht\ch@box
\global\advance\st@bot by -\internote
\global\advance\st@bot by -\c@height
\ifdim\st@top>\st@bot
 \minst@bot
 \global\advance\st@bot by -\altportee
 \global\advance\st@top by -\altportee
 \raise\st@bot\box\ch@box
 \vrule height\st@top depth -\st@bot width \lthick
 \kern -\lthick
\fi \resetstem}%
%
% grace notes (croches barrees)
\def\grcu#1{\getn@i{#1}\def\n@sym{\q@u}\def\n@fon{\grcu}\n@raiseq
  \h@linesqn\global\stem@skip=\qd@skip
  \def\s@tem{\d@gru}\pl@symssq\fi}%
\def\grcl#1{\getn@i{#1}\def\n@sym{\q@u}\def\n@fon{\grcl}\n@raiseq
  \h@linesqn\def\s@tem{\p@gru}\pl@symssq\fi}%
%
%\check
\def\s@harp{\musicnfont\char"34}\def\sh@raise{\z@}%
\def\f@lat{\musicnfont\char"32}\def\fl@raise{\z@}%
\def\n@at{\musicnfont\char"36}\def\na@raise{\z@}%
\def\ds@harp{\musicnfont\char"35}%
\def\df@lat{\musicnfont\char"33}%
%
\def\smalln@at{\cau@left\musicnfont\char"7C\cau@right}%
\def\smallf@lat{\cau@left\musicnfont\char"78\cau@right}%
\def\smalls@harp{\cau@left\musicnfont\char"7A\cau@right}%
\def\smallds@harp{\cau@left\musicnfont\char"7B\cau@right}%
\def\smalldf@lat{\cau@left\musicnfont\char"79\cau@right}%
\def\cau@left{\ifcautionacc\raise-.45\Interligne
     \hbox{\ttyeight(\kern -\lthick}\fi}
\def\cau@right{\ifcautionacc\raise-.45\Interligne
     \hbox{\ttyeight\kern -\lthick)\kern -.2\Interligne}\fi\cautionaccfalse}
%
\def\n@rpl@lap{\global\n@raise=\z@\pl@llap}%
\def\bigsh#1{\inhgetn@i{#1}\n@rpl@lap{\s@harp}}%
\def\smallsh#1{\inhgetn@i{#1}\n@rpl@lap{\smalls@harp}}%
\def\csh{\cautionacctrue\smallsh}%
\def\uppersh#1{\zcharnote{#1}{\raise3\internote
\hbox to \qn@width{\hss\smalls@harp\hss}}}%
%
\def\bigdsh#1{\inhgetn@i{#1}\n@rpl@lap{\ds@harp}}%
\def\smalldsh#1{\inhgetn@i{#1}\n@rpl@lap{\smallds@harp}}%
\def\cdsh{\cautionacctrue\smalldsh}%
%
\def\bigna#1{\inhgetn@i{#1}\n@rpl@lap{\n@at}}%
\def\smallna#1{\inhgetn@i{#1}\n@rpl@lap{\smalln@at}}%
\def\cna{\cautionacctrue\smallna}%
\def\upperna#1{\zcharnote{#1}{\raise3\internote
\hbox to \qn@width{\hss\smalln@at\hss}}}%
%
\def\bigfl#1{\inhgetn@i{#1}\n@rpl@lap{\f@lat}}%
\def\smallfl#1{\inhgetn@i{#1}\n@rpl@lap{\smallf@lat}}%
\def\cfl{\cautionacctrue\smallfl}%
\def\upperfl#1{\zcharnote{#1}{\raise3\internote
\hbox to \qn@width{\hss\smallf@lat\hss}}}%
%
\def\bigdfl#1{\inhgetn@i{#1}\n@rpl@lap{\df@lat}}%
\def\smalldfl#1{\inhgetn@i{#1}\n@rpl@lap{\smalldf@lat}}%
\def\cdfl{\cautionacctrue\smalldfl}
%
\def\na#1{\ifdim\small@test\bigna{#1}\else\smallna{#1}\fi}%
\def\fl#1{\ifdim\small@test\bigfl{#1}\else\smallfl{#1}\fi}%
\def\sh#1{\ifdim\small@test\bigsh{#1}\else\smallsh{#1}\fi}%
\def\dfl#1{\ifdim\small@test\bigdfl{#1}\else\smalldfl{#1}\fi}%
\def\dsh#1{\ifdim\small@test\bigdsh{#1}\else\smalldsh{#1}\fi}%
%
%\check
\def\b@adjust{\ifdim\y@ii>2.1\q@antum
\multiply\q@antum by 2\relax\advance\b@char by 1\relax\fi
}%
\newcount\b@char
\def\b@alkdefs{\b@char=0\relax
\ifnum \b@p>0\relax\b@char=\b@p\relax\multiply\b@char by 6\relax
  \advance\b@char by -6\relax\ifnum\b@char>54\relax\b@char=54\relax\fi\fi
\ifnum \b@p<0\relax\b@char=-\b@p\relax\multiply\b@char by 6\relax
  \advance\b@char by 58\relax\ifnum\b@char>118\relax\b@char=118\relax\fi\fi
\q@antum=60pt\divide\q@antum by 32\relax\b@adjust
\b@adjust
\b@adjust
\b@adjust
\b@adjust
\chardef\b@alk=\b@char}%
%\check
\def\s@lopdefs{\q@antum=60pt\divide\q@antum by 32\relax \def\s@lope{0.0}\relax
\ifnum \b@p=1\relax\def\s@lope{0.05}\fi
\ifnum \b@p>1\relax\b@char=\b@p\relax\multiply\b@char by 5\relax
  \ifnum\b@char>50\relax\b@char=50\relax\fi
  \edef\s@lope{0.\the\b@char}\fi
\ifnum \b@p=-1\relax\def\s@lope{-0.05}\fi
\ifnum \b@p<-1\relax\b@char=-\b@p\relax\multiply\b@char by 5\relax
  \ifnum\b@char>50\relax\b@char=50\relax\fi
  \edef\s@lope{-0.\the\b@char}\fi
}%
%\check
\def\p@outre{%    \y@ii : longueur,   \b@p : pente,  \y@i : altitude
\ifnum \b@p=0\relax
  \y@iii=\y@i\y@iv=\y@i
  \advance\y@iii by -\b@alkthick
  \advance\y@iv by \b@alkthick
  \vrule height \y@iv depth -\y@iii  width \y@ii
%  \raise  \y@i\hbox{\vrule height \b@alkthick depth \b@alkthick
%      width \y@ii}
\else\b@alkdefs\beamfont
  \global\y@iv=\z@
  \loop\ifdim\y@iv<\y@ii
    {\y@v=\y@ii\advance\y@v by -\y@iv
    \advance\y@v by -\q@antum
    \y@iii=\y@i
    \advance\y@iii by \s@lope\y@iv
    \ifdim\y@v<\z@\advance\y@iii by \s@lope\y@v\hskip\y@v\fi
    \raise\y@iii\hbox to \q@antum{\b@alk\hss}\global\advance\y@iv by \q@antum
    }\repeat
\fi
}%
%\check
\def\clefdefasymbol{\hbox to 3.2\Interligne{\musickeyfont
     \kern -0.8\internote\hss\char"49\hss}}%
\def\smallclefdefa{\hbox to 2.8\Interligne{\musickeyfont
     \kern -0.64\internote\hss\char"4A\hss}}%
%\check
\def\clefdesolsymbol{\hbox to 3.2\Interligne{\musickeyfont
     \kern -1.2\internote\hss\char"47\hss}}%
\def\smallclefdesol{\hbox to 2.8\Interligne{\musickeyfont
\kern -0.96\internote\hss\char"48\hss}}%
%\check
\def\clefdutsymbol{\hbox to 3.2\Interligne{\musickeyfont
   \kern -0.8\internote\hss\char"4B\hss}}%
\def\smallclefdut{\hbox to 2.8\Interligne{\musickeyfont
   \kern -0.64\internote\hss\char"4C\hss}}%
\def\gclefdut{\hbox to 3.2\Interligne{\musickeyfont
   \kern 0.4\internote\hss\char"04\hss}}%
\def\drumclefsymbol{\hbox to 3.2\Interligne{\musickeyfont
   \kern 0.4\internote\hss\char"4D\hss}}%
%
\def\allabreve{{\kern \internote\musickeyfont\char"52}}%
\def\meterC{{\kern \internote\musickeyfont\char"53}}%
%
\def\d@soup{\hbox{\kern -0.3\qn@width\musicnfont\char"3F}}%
\def\q@soup{\hbox{\kern -0.3\qn@width\musicnfont\char"40}}%
\def\h@soup{\hbox{\kern -0.3\qn@width\musicnfont\char"41}}%
\def\s@soup{\hbox{\kern -0.3\qn@width\musicnfont\char"42}}%
\def\p@orgue{\hbox{\kern -0.5\hn@width\musicnfont\char"50}}%
\def\p@urgue{\hbox{\kern -0.5\hn@width\musicnfont\char"51}}%
\def\trille#1{\hbox to #1{\leaders\hbox{\musicnfont\char"64}\hfill}}%
\def\Trille#1{\hbox to #1{\it tr\leaders\hbox{\musicnfont\char"64}\hfill}}%
%
% Gregorian notes
%
\def\diamg#1{\getn@i{#1}\def\n@fon{\diamg}\def\n@sym{\d@iamg}\g@diamg}%
\def\zdiamg#1{\getn@i{#1}\def\n@fon{\diamg}\def\n@sym{\d@iamg}\rlap{\g@diamg}}%
\def\diamw#1{\getn@i{#1}\def\n@fon{\diamw}\def\n@sym{\d@iamw}\g@diamg}%
\def\zdiamw#1{\getn@i{#1}\def\n@fon{\diamw}\def\n@sym{\d@iamw}\rlap{\g@diamg}}%
\def\shaker#1{\charnote{#1}{\s@haker}}%
\def\zshaker#1{\zcharnote{#1}{\s@haker}}%
\def\tremolord#1{\charnote{#1}{\t@remolord}}%
\def\ztremolord#1{\zcharnote{#1}{\t@remolord}}%
\def\carrg#1{\getn@i{#1}\def\n@fon{\carrg}\def\n@sym{\c@arrg}\g@diamg}%
\def\zcarrg#1{\getn@i{#1}\def\n@fon{\carrg}\def\n@sym{\c@arrg}\rlap{\g@diamg}}%
\def\carqg#1{\getn@i{#1}\def\n@fon{\carqg}\def\n@sym{\c@arqg}\g@diamg}%
\def\zcarqg#1{\getn@i{#1}\def\n@fon{\carqg}\def\n@sym{\c@arqg}\rlap{\g@diamg}}%
\def\carpg#1{\getn@i{#1}\def\n@fon{\carpg}\def\n@sym{\c@arpg}\g@diamg}%
\def\zcarpg#1{\getn@i{#1}\def\n@fon{\carpg}\def\n@sym{\c@arpg}\rlap{\g@diamg}}%
%
\def\g@diamg{\advancetrue\g@diam}%
\def\g@diam{\global\n@raise=\wh@raise\ifnum\n@i<100\relax
  \h@lines{\gr@width}\def\s@tem{\resetstem}\pl@symssq\fi}%
 %\check
%
% arpeges
%
\def\arpegesym#1{\hbox to \Interligne{\kern -1.2\Interligne
\vbox to #1{\parindent=\z@
\offinterlineskip\ifdim #1>4\Interligne\Arp@elem\fi\hrule
\cleaders\arp@elem\vfill\kern -\interligne}\hss}}%
\def\arp@elem{\vbox to \Interligne{\vss\musicnorfont\char"5A}}%
\def\Arp@elem{\vbox to 4\Interligne{\vss\musicnorfont\char"5D}}%
%
\def\arpeggio#1#2{\zcharnote{#1}{\n@iii=#2\relax\advance\n@iii by 89\relax
\musicnorfont\chardef\arp@el=\n@iii\relax\arp@el}\qsk}%
\def\larpeggio#1#2{\lcharnote{#1}{\n@iii=#2\relax\advance\n@iii by 89\relax
\musicnorfont\chardef\arp@el=\n@iii\relax\arp@el\kern -0.3\qn@width}\qsk}%
%
%
% This skip aligns some ornaments which appear not to be centred precisely
% on the notes
\def\o@skp{\kern-.5\hd@skip}
\def\mordant#1{\zcharnote{#1}{\musicnfont\char 89}}%
\def\pince#1{\zcharnote{#1}{\musicnfont\char 87}}%
\def\Pince#1{\zcharnote{#1}{\musicnfont\char 88}}%
\def\Lpince#1{\zcharnote{#1}{\musicnfont\char 7}}%
\def\Pincesw#1{\zcharnote{#1}{\musicnfont\char 11}}%
\def\Pincenw#1{\zcharnote{#1}{\musicnfont\char 10}}%
\def\Pincene#1{\zcharnote{#1}{\musicnfont\char 9}}%
% \turn p      makes a turn             symbol at pitch p, causing no space
% \backturn p  makes a backward turn    symbol at pitch p, causing no space
% \coda p      makes a coda             ...
% \segno p     makes the special "S"    ...
\def\turn#1{\zcharnote{#1}{\o@skp\musicnfont\char"44}}
\def\backturn#1{\zcharnote{#1}{\o@skp\musicnfont\char"43}}
\def\coda#1{\zcharnote{#1}{\o@skp\musicnorfont\char"55}}
\def\segno#1{\zcharnote{#1}{\o@skp\musicnorfont\char"56}}
%
\def\sforz#1{{\advance\transpose by -2\usf{#1}}}%
\def\pz#1{{\advance\transpose by -2\upz{#1}}}%
\def\ppz#1{\uppz{#1}}%
\def\st#1{{\advance\transpose by -2\ust{#1}}}%
%
\def\usf#1{\zcharnote{#1}{\musicnfont\char 30}}%
\def\lsf#1{\zcharnote{#1}{\musicnfont\char 31}}%
\def\ust#1{\zcharnote{#1}{\musicnfont\char 26}}%
\def\lst#1{\zcharnote{#1}{\musicnfont\char 27}}%
\def\upz#1{\zcharnote{#1}{\musicnfont\char 24}}%
\def\lpz#1{\zcharnote{#1}{\musicnfont\char 25}}%
\def\uppz#1{\zcharnote{#1}{\musicnfont\char 28}}%
\def\lppz#1{\zcharnote{#1}{\musicnfont\char 29}}%
%
% placement des accents au-dessus de poutres et non de tetes de notes
\def\acc@balk{\global\stem@skip=\z@  %
\y@ii=\b@z                     % a augmenter avec la pente
\y@v=\locx@skip\advance\y@v by \stem@skip\advance\y@v by -\b@x
\advance\y@ii by \s@lope\y@v
\advance\y@ii by -\altportee
\raise\y@ii\rlap{\kern\stem@skip\balk@accent}}%
%\check
\def\busf#1{\def\balk@accent{\musicnfont\char 30}\selectpoutre{#1}\acc@balk}%
\def\blsf#1{\def\balk@accent{\musicnfont\char 31}\selectpoutre{#1}\acc@balk}%
\def\bust#1{\def\balk@accent{\musicnfont\char 26}\selectpoutre{#1}\acc@balk}%
\def\blst#1{\def\balk@accent{\musicnfont\char 27}\selectpoutre{#1}\acc@balk}%
\def\bupz#1{\def\balk@accent{\musicnfont\char 24}\selectpoutre{#1}\acc@balk}%
\def\blpz#1{\def\balk@accent{\musicnfont\char 25}\selectpoutre{#1}\acc@balk}%
\def\buppz#1{\def\balk@accent{\musicnfont\char 28}\selectpoutre{#1}\acc@balk}%
\def\blppz#1{\def\balk@accent{\musicnfont\char 29}\selectpoutre{#1}\acc@balk}%
%
% soufflets crescendo et decrescendo
%
\def\dimin{{\musicnorfont\char"10}}%
\def\Dimin{{\musicnorfont\char"11}}%
\def\DImin{{\musicnorfont\char"12}}%
\def\DIMin{{\musicnorfont\char"13}}%
\def\cresc{{\musicnorfont\char"14}}%
\def\Cresc{{\musicnorfont\char"15}}%
\def\CResc{{\musicnorfont\char"16}}%
\def\CREsc{{\musicnorfont\char"17}}%
%
% colons for repeats (:| |: :||:)
%
%\check
\def\w@coli{\selectinstr{\p@loop\raise\altportee
  \hbox to \z@{\hss\musickeyfont\char 126\hss}\n@portee\repeat}}%
%
% long pauses
%
\def\PAuse{\hbox to \noteskip{\musicnorfont\char"3A\hss}\advance\locx@skip
 by \noteskip}%
\def\PAUSe{\hbox to \noteskip{\musicnorfont\char"3B\hss}\advance\locx@skip
 by \noteskip}%
\def\expause#1{\charnote{#1}{\musicnorfont\char 5\hss}}
\def\zexpause#1{\zcharnote{#1}{\musicnorfont\char 5\hss}}
\def\exhpause#1{\charnote{#1}{\musicnorfont\char 6\hss}}
\def\zexhpause#1{\zcharnote{#1}{\musicnorfont\char 6\hss}}
%
% special song system left begins
%
\def\type@songsymbols{\raise\lowersongalt\llap{\musicnorfont\char 15}%
\advance\lowersongalt by \uppersongalt
\advance\lowersongalt by -\hlthick
\raise\lowersongalt\llap{\musicnorfont\char 14}}
%
%
% horizontal upper slur offset by #2 noteheads, total width #1
%
\def\h@uslur#1#2{\y@v=#1\relax\advance\y@v by -#2\hn@width
\global\setbox\ch@box=\hbox{\slurnorfont\char31}% maximum of one part slurs
\ifdim\wd\ch@box>\y@v
  \global\n@iii=0\relax
  \loop\global\setbox\ch@box=\hbox{\slurnorfont\char\n@iii}%
  \ifdim\wd\ch@box<\y@v\global\advance\n@iii by 1\relax
  \repeat
  \hbox to #1{\kern #2\hn@width\hss\slurnorfont\char\n@iii\hss}%
\else
  \global\n@iii=79\relax
  \loop\global\setbox\ch@box=\hbox{\slurnorfont\char\n@iii}%
  \ifdim 2\wd\ch@box>\y@v\global\advance\n@iii by -1\relax
  \repeat
  \hbox to #1{\kern #2\hn@width\y@iv=\ht\ch@box\y@iii=-\ht\ch@box
  \advance\y@iii by \t@y
  \slurnorfont\char\n@iii
  \leaders\hrule height \y@iv depth \y@iii\hfill
  \advance\n@iii by 16\relax \char\n@iii}%
\fi}
%
% horizontal lower slur offset by #2 noteheads, total width #1
%
\def\h@dslur#1#2{\y@v=#1\relax\advance\y@v by -#2\hn@width
\global\setbox\ch@box=\hbox{\slurnorfont\char31}% maximum of one part slurs
\ifdim\wd\ch@box>\y@v
  \global\n@iii=32\relax
  \loop\global\setbox\ch@box=\hbox{\slurnorfont\char\n@iii}%
  \ifdim\wd\ch@box<\y@v\global\advance\n@iii by 1\relax
  \repeat
  \hbox to #1{\kern #2\hn@width\hss\slurnorfont\char\n@iii\hss}%
\else
  \global\n@iii=111\relax
  \loop\global\setbox\ch@box=\hbox{\slurnorfont\char\n@iii}%
  \ifdim 2\wd\ch@box>\y@v\global\advance\n@iii by -1\relax
  \repeat
  \hbox to #1{\kern #2\hn@width\y@iv=\dp\ch@box\y@iii=-\dp\ch@box
  \advance\y@iii by \t@y
  \slurnorfont\char\n@iii
  \leaders\hrule height \y@iii depth \y@iv\hfill
  \advance\n@iii by 16\relax \char\n@iii}%
\fi}
%
% sames without offsets
%
\def\hdslur#1{\h@dslur {#1}0}
\def\huslur#1{\h@uslur {#1}0}
%
% noter un debut de tenue
%
\def\ITenu#1{\selecttenue{#1}\I@tenu{70}}%
\def\Ilegu#1#2{\selecttenue{#1}{\advance\locx@skip by -1.5\qn@width
\I@tenu{70}{#2}}}%
\def\Itenu#1{\selecttenue{#1}\I@tenu{66}}%
\def\ilegu#1#2{\selecttenue{#1}{\advance\locx@skip by -1.5\qn@width
\I@tenu{66}{#2}}}%
\def\ITenl#1{\selecttenue{#1}\I@tenl{102}}%
\def\Ilegl#1#2{\selecttenue{#1}\advance\locx@skip by -1.5\qn@width
\I@tenl{102}{#2}\advance\locx@skip by 1.5\qn@width}%
\def\Itenl#1{\selecttenue{#1}\I@tenl{98}}%
\def\ilegl#1#2{\selecttenue{#1}{\advance\locx@skip by -1.5\qn@width
\I@tenl{98}{#2}}}%
%
\def\I@tenall{\global\t@s=1\relax % etat en cours
  \global\t@x=\locx@skip
  \global\advance\t@x by 0.8\qd@skip
  \global\t@y= 0.15\Interligne
  \pl@base\global\t@z=\y@i\global\advance\t@z by\altportee
  \setbox\ch@box=\hbox{\L@slur}}%
%
\def\I@tenu#1#2{\global\t@p=1\relax % sens=1
  \global\t@w=#1\relax
  \inhgetn@i{#2}%
  \I@tenall
  \global\advance\t@z by \ht\ch@box
  \global\advance\t@z by 0.24\Interligne
  \global\advance\t@z by -\t@y
  \up@tenbox}%
%
\def\I@tenl#1#2{\global\t@p=-1\relax % sens= -1
  \global\t@w=#1\relax
  \inhgetn@i{#2}%
  \I@tenall
  \global\advance\t@z by -\dp\ch@box
  \global\advance\t@z by -0.24\Interligne
  \up@tenbox}%

\def\Invertslur#1{\selecttenue{#1}\global\t@p=-\t@p
\ifnum\t@w>63\relax
 \ifnum\t@w<96\global\advance\t@w by 32\relax
 \else\global\advance\t@w by -32\fi
\fi}


%
%\check
%
\def\Tten{\tten}%
\def\Tleg{\tleg}%
%
\def\t@ten{\y@i=\t@z\advance\y@i by -\altportee
\y@ii=\locx@skip\advance\y@ii by -\t@x
\ifnum\t@w=0\relax\else\advance\y@ii by 0.4\qd@skip\fi
\ifnum\t@p>0\relax
  \ifnum\t@s=2\relax
    \raise\y@i\llap{\ifnum\t@w=0\relax
                      \up@rleg\else
                      \Up@rleg\kern -0.2\qd@skip\fi}%
  \else
    \raise\y@i\llap{\ifnum\t@w=0\relax
                      \up@leg\else
                      \Up@leg\kern -0.2\qd@skip\fi}%
  \fi
\else
  \ifnum\t@s=2\relax
    \raise\y@i\llap{\ifnum\t@w=0\relax
                      \lo@rleg\else
                      \Lo@rleg\kern -0.2\qd@skip\fi}%
  \else
    \raise\y@i\llap{\ifnum\t@w=0\relax
                      \lo@leg\else
                      \Lo@leg\kern -0.2\qd@skip\fi}%
  \fi
\fi
\global\t@w=0\relax
\global\t@s=0\relax
\@uptenubox}%
%
%
\def\L@slur{\slurnorfont\char\t@w}%
\def\R@slur{\global\advance\t@w by 16\slurnorfont\char\t@w}%
\newdimen\slur@off
\newdimen\slur@maxlen
%
\def\leg@hrule{\leaders\hrule height \t@y\hfill}%
%
% complete slur of length #1 (up and down)
\def\Up@leg{%    longueur \y@ii
\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=\ht\ch@box
  \advance\slur@off by -\t@y
  \ifdim \y@ii>2\wd\ch@box
    \raise -\slur@off\hbox{\L@slur}\leg@hrule\raise -\slur@off\hbox{\R@slur}%
  \else
    \raise -\slur@off\hbox{\huslur{\y@ii}}%
  \fi}}%
%
\def\Lo@leg{%    longueur \y@ii
\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=-\dp\ch@box
  \advance\slur@off by -0.3\t@y
  \ifdim \y@ii>2\wd\ch@box
    \raise -\slur@off\hbox{\L@slur}\leg@hrule\raise -\slur@off\hbox{\R@slur}%
  \else
    \raise -\slur@off\hbox{\hdslur{\y@ii}}%
  \fi}}%
%
% slur termination of length #1 (up and down)
\def\Up@rleg{%    longueur \y@ii
\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=\ht\ch@box %
  \advance\slur@off by -\t@y
  \ifdim \y@ii>\wd\ch@box\leg@hrule
  \else\hss\fi  \raise -\slur@off\hbox{\R@slur}}}%
%
\def\Lo@rleg{%    longueur \y@ii
\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=-\dp\ch@box %
  \advance\slur@off by -0.3\t@y
  \ifdim \y@ii>\wd\ch@box\leg@hrule
  \else\hss\fi  \raise -\slur@off\hbox{\R@slur}}}%
%
%\check
%
% slur beginning (left) (up and down)
\def\Up@les{%    longueur \y@ii
\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=\ht\ch@box
  \advance\slur@off by -\t@y
  \UpLo@les}}%
%
%\check
%
\def\Lo@les{%    longueur \y@ii
\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=-\dp\ch@box
  \advance\slur@off by -0.3\t@y
  \UpLo@les}}%
%
%\check
%
\def\UpLo@les{\raise -\slur@off\hbox{\L@slur}%
  \advance\y@ii by -\wd\ch@box
  \ifdim \y@ii>\z@\leg@hrule
  \else\hss
%    \ifdim\y@ii<-.8\p@ \vrule height 1cm\fi
  \fi}%
%\check
%
\def\c@ten{%\rlap{\vrule height 1cm}
     \y@ii=\x@skip\advance\y@ii by -\t@x
     \global\t@x=-.8\p@  %<--
     \ifnum\t@s=1\relax
       \ifnum\t@w=0\relax
           \ifnum\t@p>0\relax
           \raise\t@z\llap{\up@les}\else
           \raise\t@z\llap{\lo@les}\fi
       \else
           \ifnum\t@p>0\relax
           \raise\t@z\llap{\Up@les}\else
           \raise\t@z\llap{\Lo@les}\fi
       \fi
     \else
       \ifnum\t@s=2\relax
         \slur@off=\t@z
         \advance\slur@off by \t@y
%         \advance\slur@off by 3\p@
         \kern -\y@ii\vrule height \slur@off depth -\t@z width \y@ii
       \fi
     \fi
     \global\t@s=2\relax
}%
%
\def\n@skmb{\nobreak\global\slur@maxlen=\z@
% compute the maximum length of slurs to be handled
  \ten@loop
     \setbox\ch@box=\hbox{\ifnum\t@w=0\relax\lu@slur
                           \else\L@slur\fi}\ifdim\slur@maxlen<\wd\ch@box
     \global\slur@maxlen=\wd\ch@box\fi
     \global\advance\n@l by 1\relax
  \repeat
% compute the maximum excess length of beginning slurs
  \global\slur@off=\z@
  \ten@loop
     \y@ii=\x@skip\advance\y@ii by \n@skip\advance\y@ii by -\t@x
     \advance\y@ii by -\slur@maxlen
     % \y@ii is the length that will be given to \c@ten for that slur/tie
     % assuming \slur@maxlen left offset...
     \ifnum\t@s=1\relax
       \setbox\ch@box=\hbox{\ifnum\t@w=0\relax\lu@slur\else\L@slur\fi}%
           {\advance\y@ii by -\wd\ch@box
            \ifdim\y@ii<\slur@off \global\slur@off=\y@ii\fi}%
     \fi
     \global\advance\n@l by 1\relax
  \repeat
  \global\advance\slur@maxlen by \slur@off
%
  \nobreak\global\advance\n@skip by -\slur@maxlen}%
\def\skip@b{\hskip \slur@maxlen
   \global\advance\x@skip by\slur@maxlen}% %

 %
%
%\check
%
% symboles slurn20 des liaisons et tenues
%
\newcount\t@wi
\newcount\t@wii
\newcount\t@wiii
\newcount\t@wiv
\newcount\t@wv
\newcount\t@wvi
%
\let\wlog=\@plainwlog
%
\def\k@ii{\fontdimen 8\musictwenty}
\def\k@iii{\fontdimen 9\musictwenty}
\def\k@iiii{\fontdimen 10\musictwenty}
\def\k@iiv{\fontdimen 11\musictwenty}
\def\k@iv{\fontdimen 12\musictwenty}
\def\k@ivi{\fontdimen 13\musictwenty}
\def\k@ivii{\fontdimen 14\musictwenty}
\def\k@iviii{\fontdimen 15\musictwenty}
\def\k@iix{\fontdimen 16\musictwenty}
%
\def\internotei{\fontdimen 17\musictwenty}
\def\internoteii{\fontdimen 18\musictwenty}
\def\internoteiii{\fontdimen 19\musictwenty}
\def\internoteiv{\fontdimen 20\musictwenty}
\def\internotev{\fontdimen 21\musictwenty}
\def\internotevi{\fontdimen 22\musictwenty}
\def\internotevii{\fontdimen 23\musictwenty}
\def\internoteviii{\fontdimen 24\musictwenty}
\def\internoteix{\fontdimen 25\musictwenty}
\def\c@height{\fontdimen 26\musictwenty}
%
\def\qn@width{\fontdimen 27\musictwenty}
\def\hn@width{\fontdimen 28\musictwenty}
\def\wn@width{\fontdimen 29\musictwenty}
\def\sb@width{\fontdimen 30\musictwenty}
\def\bv@width{\fontdimen 31\musictwenty}
\def\gr@width{\fontdimen 32\musictwenty}
%
\def\clef@skip{\fontdimen 28\beamtwenty}
\def\nullthick{\fontdimen 29\beamtwenty}
\def\bbbb@xi{\fontdimen 30\beamtwenty}
\def\bbbb@xii{\fontdimen 31\beamtwenty}
\def\bbbb@xiii{\fontdimen 32\beamtwenty}
\def\bbbb@xiv{\fontdimen 33\beamtwenty}
\def\bbbb@xv{\fontdimen 34\beamtwenty}
\def\bbbb@xvi{\fontdimen 35\beamtwenty}
\def\bbbb@xvii{\fontdimen 36\beamtwenty}
\def\bbbb@xviii{\fontdimen 37\beamtwenty}
\def\bbbb@xix{\fontdimen 38\beamtwenty}
\def\bbbb@xx{\fontdimen 39\beamtwenty}
%
\def\bbbbb@xi{\fontdimen 40\beamtwenty}
\def\bbbbb@xii{\fontdimen 41\beamtwenty}
\def\bbbbb@xiii{\fontdimen 42\beamtwenty}
\def\bbbbb@xiv{\fontdimen 43\beamtwenty}
\def\bbbbb@xv{\fontdimen 44\beamtwenty}
\def\bbbbb@xvi{\fontdimen 45\beamtwenty}
\def\bbbbb@xvii{\fontdimen 46\beamtwenty}
\def\bbbbb@xviii{\fontdimen 47\beamtwenty}
\def\bbbbb@xix{\fontdimen 48\beamtwenty}
\def\bbbbb@xx{\fontdimen 49\beamtwenty}

% this macro sets the new big (piano) braces (due to Andreas Egler)
%  !!! Attention !!!
% there is no checking of
% too small or large dimensions
%
\font\musext=musicbra
\newcount\selbrace
\def\mult@portee{\y@ii=\nbportees\interportee
    \advance\y@ii by -\Interportee
    \advance\y@ii by \nbportees\lthick
    \advance\y@ii by -2\lthick
%
    \selbrace=\y@ii\relax\select@brace%
    \divide\y@ii by 2\raise\y@\llap{%
    \raise\y@ii\llap{\musext\char\selbrace%
    \kern.5\Interligne}}}%
%
\def\select@brace{\divide\selbrace by 65536%
\advance\selbrace by -40\divide\selbrace by 2}%
% dim to count means 1pt -> 65536 sp
% 40 pt is the length of the smallest brace
% the next brace is 2pt larger


\catcode`\>=\catcode@gt
\catcode`\<=\catcode@lt
\catcode`\@=\catcodeat